home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
emulator
/
zxam spectrum
/
zxam_rexx
/
español
/
zxamrun.dopus
< prev
next >
Wrap
Text File
|
1995-07-31
|
1KB
|
42 lines
/* Este script carga un snapshot de disco */
/* Usado originalmente para arrancar juegos */
/* desde el DirOpus a través de un FileType */
/* Necesita el emulador arrancado, a menos que modifiques el script para */
/* que arranque el emulador desde el directorio donde se encuentra */
parse arg nombre /* recoge argumento */
/* Usa los conversores internos del emulador */
address command
if ~show(ports,ZXAM_REXX) then do
requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
exit
end
/* Almacenar el estado inicial del emulador */
running=zxamactrun() /* 1=en marcha */
zxamstop() /* lo paramos */
/* cargar el fichero */
bloque=zxampploadfile(nombre) /* cargamos TODO el fichero */
formato=zxamparseloaded(bloque) /* reconoce y carga el fichero */
if formato~='' then do
zxamnameformat(zxamfilepart(nombre),formato)
zxamloadpath(zxampathpart(nombre))
zxamenablereload()
end
if running=1 then zxamrun()
exit